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AMENDMENTS 


Please amend the Flowchart solution on page 22 of unit 4708 as 
follows: 


1. In the second column, after the Ist connector symbol, the 
box 


Add 1 to 


Total Employees 


Should be removed and transfered to the fourth column to 
appear between any of the three boxes shown. 


2. In the 4th column, in addition to the foregoing, a new 
box 


Add Sub-total 


hours to 
Total hours 


must be inserted just before the 'Return to Caller' circle. 
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STUDY UNIT 8 
YOUR LEARNING OBJECTIVES 


WHEN YOU COMPLETE THIS UNIT, YOU WILL BE ABLE TO: 


_] Use intermediate totals logic to 
generate a sales commission 
FOIE S54 Seg eres Pages 1-8 


| Apply subroutines to structure 
program logic ...... Pages 8-13 


(| Read display output by using 
the PAUSE statement... Page 13 


(] Understand a sample program 
which applies the major logic 


used in control break 
processing ....... Pages 13-20 


LEARNING AIDS 


Programmer's Check #1 ..... 21 


|] Provide summarized 

output when the detail data 

is not important to the 

1) a oe ae ., Pages 20-23 


_| Sub-divide and total groups 

of records by using the logic 

of multiple control 

OT GAIS 55-55. Sinks Pages 24-28 


L] Adapt a printed program 
to account for additional 
factors...... ..,, Pages 28-30 


EXAM 8 (Examination for Study 
EB): vues hone eee s 33-34 
ANSWER SHEET .,....-.... 35 


STUDY UNIT 8 


CONTROL BREAKS—TAKING 
INTERMEDIATE TOTALS 


DO YOU KNOW? 


° How records can be processed as control groups? 


The difference between a GOTO and a GOSUB? 


FIGURE 1—Baseball scores and statistics involve taking intermediate totals by half inning, inning, game, 
and series. No wonder baseball professionals and fans alike welcomed the computer as an aid in keep- 
ing all the data instantly available. 


THE BREAKS OF a jack. Jacks are higher than any number card 
THE GAME in many games. We can even change card 

Ever think about all the things you learn values by designating ‘‘wild cards’’ or assign- 
just from playing different games? Card games, ing ‘*penalties’’ such as the Queen of Spades 
for example, teach us to distinguish values of counting 13 points against you. Once these 
the various playing cards. A king is higher than values are known, scores can be figured. 
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Keeping score of each hand played, adding 
this score to the overall total, then coming up 
with scores for each game played, can Bet pretty 
complicated. Bridge players keep score of 
hands, games, rubbers and sometimes the totals 
for individual players. 


In bowling, the score for each ball is 
recorded according to the frame and player. 
Some scores such as a strike or spare count for 
more than one frame. And in the tenth frame, 
you get extra chances to score higher by mak- 
ing strikes. Keeping score of two bowling teams 
of four people each is a rather challenging task, 


Scorekeepers not only identify hits, errors, 
chances, runs, outs, assists, stolen bases, and 
many other ‘‘stats’’ each inning of a baseball 
game, but they also run cumulative totals of 
these for a final total. Then, other stat keepers 
enter these numbers into record books main- 
tained on each player, team, division and 
league. 


Without the least hesitation, a boy of ten 
can tell you his favorite baseball hero’s batting 
average, how many hits the player had in last 
night’s game, and the number of bases stolen, 
Not only that, he can probably tell you exact- 
ly when the hits were made and the bases stolen. 
More, he can give you the value of the feats 
in terms of home runs, singles, stealing third 
or taking home on a squeeze bunt. 


Whether the individual is an actual player 
or a devout fan, the knowledge about scores 
and games remembered over years is quite in- 
credible, Fans and players can recall certain in- 
stances as though they happened just a moment 
ago. A pitcher can tell you pitch-for-pitch how 
he struck out the side during a game played ten 
years ago. A fan who watched the game will 
recall other highlights of the same game with 
equal enthusiasm. 


The human brain is amazing for its abili- 
ty to store and recall such events and data. In 
a much simpler way, computers can be pro- 
grammed to do the same sort of thing. 


You will see how a computer can be pro- 
grammed to provide intermediate totals so that 
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you could, indeed, create a program to keep 
track of bowling scores or the feats of your 
favorite athlete. And the very same process 
used to maintain game scores by subtotal and 
final total can be applied to dozens of situations 
in business and industry. Let’s see how to pro- 
gram them. 


INTERMEDIATE TOTALS 
FOR A SALES PROGRAM 

In many applications, input data is divided 
into groups, and intermediate totals are taken 
for each group. For example, suppose you are 
a salesperson working for a company on a com- 
mission basis of 19%. {1 would be a relatively 
simple task for us to write a program which 
reads input data consisting of the date of the 
sale, the client's name, and the amount of the 
sale, and then to display on a screen the total 
commission owed to you. Such a program 
might look like this: 


INPUT DATA: 


DATE CLIENT'S AMOUNT 
OF SALE NAME OF SALE 
61/05/83 ABC CO. 500.00 
01/05/83 ACME INC. 150.006 
01/86/83 ZENITH SALES 175.00 
01/06/83 BAKER LTD. 185.0 


SALES REPORT 
CLIENT 


3 ABC CO. 
ACME INC. 
ZENITH SALES 
BAKER LTD, 


OUTPUT: 


COMMISSION REPORT 


TOTAL CLIENTS: 


a 
TOTAL SALES ww. 


TOTAL COMMISSION: 181 


FLOWCHART 


STAAT 
SET TOTAL 
CLIENTS AND 
TOTAL SALES 
Tog 


Ss 
AMOUNT 


If REM SALES COMMISSION 
REPORT — FINAL TOTALS ONLY 


28 REM VARIABLES MEANINGS 


36 REM DS DATE OF SALE 

4g REM NS NAME OF CLIENT 

Sf REM § AMOUNT OF SALE 
64 REM TI TOTAL SALES 

76 REM T2 TOTAL CLIENTS 

84 REM T3 TOTAL COMMISSION 
85 REM L LINE NUMBER 

96 REM AS PROMPT TO CONTINUE LOOP 
iW LET TI =9 

11f LET T2 = 

115 LETL =4 

128 CLS 


134 PRINT TAB 9; ‘SALES REPORT” 


148 PRINT TAB 2; “DATE”; TAB If; 
“CLIENT”; TAB 24; “AMOUNT” 


145 PRINT AT 21, “ENTER DATE:” 

15 INPUT D$ 

15S PRINT AT 21, #; "ENTER NAME:" 
16¢ INPUT NS 

165 PRINT AT 21,f; “ENTER SALES:” 


179 INPUT S 
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ADD SALES 
AMOUNT TO 
TOTAL SALES 


ADD 1TO 
TOTAL 
CLIENTS 


PRINT DATE. 
NAME. SALE: 
AMOUNT 


ADD 1TO 
LINE # 
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189 LET Tl = Ti +S 


il 


199 LET T2 = T2 + 1 


24 PRINT AT L,@; D$; TAB 1: N3; 
TAB 24; S 


265 LETL=L +1 
21f PRINT AT 21,9; ‘‘“MORE (Y/N) ? ” 
226 INPUT A$ 


234 IF AS = "*Y"’ THEN GOTO 145 


240 LET T3 = Tl * .1f 
254 CLS 


260 PRINT TAB 6; ‘COMMISSION 
REPORT” 


276 PRINT “TOTAL CLIENTS: *; 
TAB 2¢; T2 


286 PRINT ‘*TOTAL SALES: ”; 
TAB 29; Tl 


298 PRINT “TOTAL COMMISSION: "; 
TAB 21; T3 


300 STOP 


LET COMMISSION 
=TOTAL 
SALES * 19 


CLEAR 
THE 
SCREEN 


PRINT 
“COMMISSION 
REPORT” 


PRINT “TOTAL 
LIENTS: "; 
TOTAL CLIENTS 


PRINT “TOTAL 
SALES; "; 
TOTAL SALES 


PRINT “TOTAL 
COMMISSION: "; 


TOTAL 
COMMISSION 


Enter this program and observe how it runs. 
Use the input data on Page 2. 


The AT function can be used to control 
displayed PRINT lines, Like the TAB function, 
it causes data to be printed beginning in the 
specified horizontal column. In addition, it also 
specifies the vertical line number where the data 
should be printed. The format of the PRINT AT 
statement is: 


nn PRINT AT L.C; constant or 
variable 


where: nn is the line number of the 

instruction 

PRINT is a BASIC keyword 

AT is a BASIC function 

L is the line number (@ is the 
first line on the screen and 
21 is the last line) 

C is the column number (@ is 
the leftmost position and 31 
is the rightmost) 


Note that all prompts are printed at the bot- 
tom of the screen through the use of the PRINT 
AT 21, statements (lines 145, 155, 165 and 214). 
This allows us to display the output of the sales 
report as we are entering new data. However, as 
soon as we wish to display one record's worth of 
output, our computer will try to print on the next 
line. 


Since there is no next line to print on, state- 
ment number 29 tells the computer to print on 
the **L”* line number. This was initially set to 4 
for the first detail record (statement number 115) 
and then incremented by | for the next record (line 
number 25). Otherwise. the program merely 
accepts the input and accumulates totals so that 
we can display the commission amount after all 
data has been entered. 


But now, let's suppose we wished to have a 
breakdown of the totals entered for each day. In 
the above example, this would mean one subtotal 
for 61/05/83 and another for $1/H6/83: that is, for 
each new date entered we want a total for the 
previous date. This is what we mean by control 
breaks and intermediate totals. 


Let's now develop some logic which we can 
insert into our sample program to produce output 
like this: 


SALES REPORT 


DATE CLIENT AMOUNT 
61/85/83 ABC CO. 


#15183 ACME INC. 
TOTALS FOR: 61/95/83 


61/6683 ZENITH SALES 
nn 3 BAKER LTO. 
OTALS FOR: s1/88/e3 


In order to add the two subtotal lines illus- 
trated above, we must add several steps to our 
flowchart. First, we'll need another accumulator 
so that we will be able to display the total for each 
day. This accumulator will be initialized to zero 
at the start of the program. For each record, we'll 
add the sales amount to it, 


+ DAT ADD SALES 
S TOTAL = TO DATE 
Tos TOTAL 


When the date entered changes, a line will 
be printed containing this total and the date to 
which it applies. 


PRINT 
“TOTALS FOR: "; 
GROUP DATE, 
DATE TOTAL 


Then we'll add this total to our final total 
accumulator. The date total accumulator must be 
reset to zero, so that we can accumulate a total 
for the next date. 


AOD DATE 
TOTAL TO 
FINAL TOTAL 


SET 
DATE TOTAL 
Tog 
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Next, we need to add some logic to test each 
date entered to see if it is different from the 
previous group’s date. If it ts. we'll do our sub- 
total logic and then rejoin the logic required to 
process each record. 


iS DATE = PRINT 


PREVIOUS “TOTALS FOR: "; 
GROUP'S GROUP DATE, 
DATE TOTAL 


DATE 
? 


ADD DATE 
TOTAL TO 
FINAL TOTAL 


SET DATE 
TOTAL 
Tog 


SET NEW 
GROUP DATE 


(PROCESS 
EACH 
RECORD) 


Note that we will have to establish another 
variable in our program—the group date. This date 
identifies our control groups and. thus, is known 
as the control field. It will be set for each group 
of sale dates and will be compared to each time 
we enter a new date. 


There is an assumption that must be made 
whenever control-break logic is applied. The data 
being entered must be grouped or sorted prior to 
becoming input to a program. In the data we are 
using, all records with the same date are entered 
consecutively, Our logic. then, is able to state that 
whenever a new date is entered, a// records for 
the previous group’s date have already been 
processed. 
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If another record with a previous group's date 
is entered, our program will treat it as another 
group entirely, 


There are two problems which control-break 
logic must solve, and they deal with the first and 
last control groups. 


We can't process the first record the same 
way as the rest of the records, since we won't have 
uny previous group date to compare it with. What 
we have to do is to take the first date entered and 
establish it as the first group date. Every other date 
entered will have to be compared against the first 
group date. Here are the two sets of logic that will 
be necessary. 


FIRST 
RECORD 


SET 
GROUP DATE 


PROCESS THE 
RECORD 


OTHER 
RECORDS 


CONTROL BREAK 


IS DATE = 
GROUP DATE PROCESSING 
? 


PROCESS THE 
RECORD 


Other than the fact that the first record will 
cause a “‘false’’ control break, the rest of the pro- 
cessing is the same for all records, 


One way to resolve this problem is by estab- 
lishing a “*switch.’’ A switch is a programmer- 
defined variable which controls the logical path 
a record will follow, much as u railroad switch 
controls the path a train will take. Program swit- 
ches (also known as indicators or flags) take on 
one of two possible values: YES or NO. ON or 
OFF, | or @, etc. 


Observe how the use of a switch solves our 
problem: 


LET SWITCH 
= “YES” 


LET SWITCH 
= "NO" 


iS DATE 
= GROUP 
DATE 


CONTROL 
BREAK 


In this flowchart, a switch is defined and in- 
itialized to a value of **YES.*’ After the first date 
is entered, a test is made to see if the switch is 


equal to **YES,”" which, of course, it is. A branch 
to the right occurs which sets the group date and 
then sets the switch to *‘NO.*’ When the main 
logic is rejoined, no control break is found and 
the record is processed. When the next record is 
submitted as input, the switch no longer equals 
“YES” and so a control break will occur if we 
have entered a new date, 


Rarely is the need for a switch obvious in the 
initial analysis of a program, Rather, program- 
mers will set up a switch when alternate paths in 
a program must be taken (although there is nothing 
on the record itself which will decide which path 
to take). Switches are useful in a variety of ap- 
plications They allow a record to follow the cor- 
rect path, depending on the path that a previous 
record took. 


Now that we have solved the problem of the 
first group date, how about the situation the last 
record causes. How will the computer know when 
to display the last group totals? For all other 
records, we know only that we are to print a date 
total line affer we have entered a record with a 
different date. When we enter an **N*’ to discon- 
tinue our loop, our last group’s total will not have 
been processed. 


This problem is more easily solved than the 
first record problem. We will be correct if we 
assume that the last group total should always be 
printed immediately before the final totals are 
taken as in the flowchart below. 


ADD DATE 
TOTAL TO 
FINAL TOTAL 
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Note that the steps ‘“‘PRINT DATE 
TOTAL” and ‘‘ADD DATE TOTAL TO 
FINAL TOTAL” are the same steps as we have 
used in our regular control-break logic. The on- 
ly difference is the next step. In our control- 
break logic, our next step is to reset the date 
total to zero. In this final total logic, the next 
step is to display the final totals. 


We could code these steps twice in our pro- 
gram, but it would be preferable to branch to 
these two steps and then to go back. The only 
problem is, to what do we go back? A GOTO 
statement will get us to these instructions, but 
will not be able to get us back. 


A SUBROUTINE 

A subroutine is a set of Instructions which 
can be executed from anywhere in the program 
and will then return to the statement which 
*‘called’’ for it. In a flowchart, a subroutine 
is coded as a processing box with two parallel 
lines inside of it as in: 


DATE TOTALS 


DO 
DATE 
TOTALS 


ADD DATE 
TOTAL TO 
FINAL TOTAL 


CALLER 
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FIGURE 2—The programmer spends a certain 
amount of time with clients to learn exact 
specifications and applications. Then, it is back 
to the drawing board and the computer. 


When the step ‘DO DATE TOTALS” is 
encountered, a branch will occur to print the 
date totals and add to the final total. After 
these steps are done, the “‘RETURN TO 
CALLER” instruction will cause a branch back 
to the statement ‘‘DO DATE TOTALS” so 
that it can do the next step. 


In our program, we will do the date totals 
from two places: when a control break occurs 
and before we print the final totals. 


NOTE: A subroutine causes a branch and 
a return; a ‘“‘GOTO” causes a branch with no 
return. 


Let us now insert control-break logic into 
our existing sales report program. The entire 
flowchart follows: 


FLOWCHART % 


YES 


SET TOTAL 
CLIENTS, DATE 
TOTAL AND 
FINAL TOTAL 

TO 


IS DATE 
= GROUP 
DATE 

? 


NO ete) 
DATE * 
TOTALS 


SET SWITCH 
TO "YES" 


SET DATE 
TOTAL 
TOS 


SET LINE 


THE 
SCREEN 


“SALES 
REPORT" 


ADD SALES 
AMOUNT TO 
DATE TOTAL 


PRINT 
“DATE”, 
“CLIENT”, 
“AMOUNT” 


ADD 1TO 
TOTAL CLIENTS 


PRINT DATE, 
NAME, SALES 
AMOUNT 


ADD1TO 
LINE # 


starred (*) boxes are new or changed. 


YES 
Note that, basically, our program design 
is the same as our previous flowchart; the a 
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Now let’s make these changes to our old 
BASIC program. If we wish to fully maintain 
our remarks section, we will need to describe 
the additional variables used by our program: 


82 REM T4 DATE GROUP TOTAL 
Ley 92 REM F$ FIRST RECORD SWITCH 


COMMISSION 
= TOTAL 


a J 
—— 93 REM G$ GROUP DATE 


CLEAR 
THE 


SCREEN « 
To our program logic, add a step Lo set 
the date total accumulator to #: 


112 LET T4 = # 


PRINT “TOTAL We next have to initialize our switch (F$) 
TOTAL CLIENTS to a value of “*YES."* Add this statement: 
114 (LET FS. < “YES” 

PRINT “TOTAL 
SALES: "; 
TOTAL SALES -. . * 

The next instruction (o insert is the one 
saeavanreat which will test our switch within the loop to 
ee see whether it is the first date entered. Add: 


COMMISSION 


171 IF F$<>**YES” THEN GOTO 174 


172 LET G$ = DS 


173 LET F$ = '‘*NO” 


Now, if the switch is equal to “*YES,”’ 
steps 172 and 173 will be executed. 172 will set 
the group date equal to the date just entered. 
Statement 173 will set the switch to ‘‘NO”’ so 
that all subsequent loops through our program 
will cause steps 172 and 173 to be bypassed 
(since we never set the switch back to “*YES*’), 


DATE TOTALS %& 


ADD 1TO 
LINE # 


PRINT “TOTALS 
FOR: ", GROUP 
DATE, DATE 
TOTAL 


Our next group of steps will test for a 
change in the date entered: 


174 IF D$ = G$ THEN GOTO 189 


AOD DATE 
TOTAL TO 
FINAL TOTAL 


175 GOSUB 319 


RETURN 
CALLER 


177 LET T4 = @ 


~ 
G) 


178 LET G$ = D$ 
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Step 174 checks for a control break; if none 
has occurred, we just process the record as before. 
If a control break happens, though, statement 175 
**“GOSUB 319” says: branch to instruction 310 
(where the date total statements begin), 


GOSUB nnn 
where nnn is a line number 


After returning, set the date total accumulator 
back to § (177) and reset the group date compar- 
ing variable (178). 


We must now change line 18@ so that we are 
adding the sales amount to the date total 
accumulator rather than to the final total 
accumulator: 


184 LET T4 = T4 +5 


Now, we can skip to our final total routine 
and insert the instruction which will cause the last 
date totals to be displayed. Add: 


235 GOSUB 31¢ 


All that remains is to code the subroutine for 
the date totals to the end of our program: 


305 REM DATE TOTALS BEGIN HERE 
319 LETL=L+1 


32 PRINT AT L, @; “*TOTALS FOR: "’: 
GS; TAB 24; T4 


339 LET Tl = Tl + T4 
344 LETL =L +2 
354 RETURN 


A remarks line (305) should be added to the 
beginning of our subroutine to ease readability and 
debugging, Lines 319 and 349 will format our out- 
put so that we will have a blank line before and 
after our date total line. Statement 326 prints the 
group date and the date total accumulator. At line 
33, we will be adding each date total to the final 
total. 


ANTICIPATING 
PROGRAM CHANGES 


IF DS = GS THEN GOTO 189 


GOSUB 319 
LET T4 = 6 


LET G$ = DS 


FIGURE 3—When adding lines to a program, 
always try to leave ‘‘extra’’ lines open for more 
changes. In this instance, line #176 has not been 
used so it will remain available. 


Line 350, RETURN, is crucial to our pro- 
gram. It will cause a branch back to the instruc- 
tion which called for the date totals to be done 
(either line 175 or line 235) so that the next instruc- 
tions will be executed correctly. 


Your final program should now look like this: 
\( LET TI = 
116 LET T2 = @ 
0 
“YES” 


112 LET T4 


\l 


114 LET FS 


115 LETL =4 
126 CLS 
130 PRINT TAB 9; “SALES REPORT” 


146 PRINT TAB 2: “DATE”; TAB 19; 
“CLIENT”: TAB 24: *‘AMOUNT” 


145 PRINT AT 21,0: “ENTER DATE:"’ 
15@ INPUT DS 
155 PRINT AT 21,0; “ENTER NAME: 
160 INPUT NS 


165 PRINT AT 21,@; “ENTER SALES:"’ 
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174 INPUT S 
171 IF F$<>**YES’’ THEN GOTO 174 
172 LET G$ = D$ 


173 LET F$ = *“‘NO” 


174 IF D$ = G$ THEN GOTO 18¢ 
175 GOSUB 316 
6 


178 LET G$ = D$ 


177 LET T4 


186 LET T4 = T4 +S 
199 LET T2 = T2 + 1 


2 PRINT AT L, @: D$:; TAB 16: NS: 
TAB 24: S 


265 LETL=L +1 


216 PRINT AT 21,4 ; *“*MORE (Y/N) ? ” 


226 INPUT A$ 

236 IF A$ = “Y"’ THEN GOTO 145 
235 GOSUB 319 

237 PAUSE 32767 

249 LET T3 = TI * .16 

250 CLS 


260 PRINT TAB 6; *““COMMISSION 
REPORT” 


276 PRINT ‘‘TOTAL CLIENTS: **: TAB 
26; T2 


28 PRINT ‘“‘TOTAL SALES: ”’: 
TAB 2¢; Tl 


299 PRINT **TOTAL COMMISSION: *’; 
TAB 21; T3 


30 STOP 
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345 REM DATE TOTALS BEGIN HERE 
319 LETL =L +1 


326 PRINT AT L, @; ‘TOTALS FOR: "’; 
G$; TAB 24: T4 


336 LET TI! = Tl + T4 
349 LETL = L +2 
350 RETURN 


Run this program with the exact same data 
we used for the program at the beginning of this 
Unit. See how the only changes are the date totals 
which are displayed for 61/05/83 and 01/96/83. 


Before we walk through this program to see 
exactly how it works, you may perhaps have 
noticed a slight problem. That is, when we respond 
with an **N”* to stop our loop, the last date totals 
briefly appear on the screen, then quickly disap- 
pear when the final totals are displayed. 


c= 


4 


FIGURE 4—Debugging sometimes requires long 
hours of checking flowcharts and entering data 
step-by-step, over and over again. When it gets 
too frustrating, take a break! You deserve it. 


CREATING A 
PROGRAM PAUSE 
We can have the program pause at this point 
before the final totals are printed by inserting one 
more statement: 


237 PAUSE a 
where n is any number 


When encountered, this statement will halt 
execution until any key on the keyboard is 
pressed. Insert this line with a value of °*32767"" 
and run the program one more time. See how it 
works? 


A value of 32767 will cause the pause to last 
for about 14 minutes. A lesser value will cause 
the pause 10 end either when a key is pressed or 
at an amount of time equal to: 


<4 = number of seconds PAUSE will 
: last if no key ts pressed. 


START 


PRINT “DATE”, 
“CLIENT”, 
“AMOUNT” 


The PAUSE statement can serve many useful 
functions. It is most often used to allow the user 
to read the output on the screen at his or her own 
pace. The screen will only be cleared when a key 
is pressed (other than the BREAK key). Then the 
program will continue by executing the next 
statement. 


Since the duration of a PAUSE statement can 
be carefully controlled, it can also be used to func- 
tion as a clock; i.e. PAUSE 59 would last for one 
second, while PAUSE 30 for about one minute. 
Adjusting the number of the PAUSE may be 
necessary depending on the degree of accuracy 
desired, 


Remember. the number of the PAUSE con- 
trols the length of the PAUSE if no key is pressed. 
Pressing a key will always terminate the PAUSE 
immediately, regardless of the number. 


INITIALIZATION 
ROUTINE 

iM LET TI = @ 

119 LET T2 = @ 

112 LET T4 = 6 

114 LET F$ = “YES” 
115 LETL =4 

124 CLS 


134 PRINT TAB 9; 
“SALES REPORT” 


149 PRINT TAB 2; 
“DATE”: TAB 1@; 
“CLIENT”; TAB 24; 
*“AMOUNT™ 
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SAMPLE PROGRAM 
WALK THROUGH 


As we walk through this program. let's pay 
special attention to these four sets of instructions: 
1. The first record switch instructions, 
2. The contro! field and control breaks. 


3. The GOSUB and RETURN statements, 


4. The line number statements. 


AMOUNT 
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Our first three statements set our accumulators 
to zero; the fourth initializes the value of our 
switch to YES, and the fifth sets the line number 
variable to 4. Next, we display our headings after 
clearing the screen. 


Prior to entering our loop, RAM and the CRT 
look like this: 


CRT 


SALES REPORT 


CLIENT AMOUNT 


INPUT DATA 


145 PRINT AT 21. 0: 
“ENTER DATE:” 


154 INPUT DS 


155 PRINT AT 21.0; 
“ENTER NAME;” 


16f INPUT N$ 


165 PRINT AT 21.0: 
“ENTER SALES:' 


176 INPUTS 


These six instructions cause prompts for three 
variables to be entered by the operator. Let's 
assume that we've submitted the data from our 
first record: 


W1/05/83 ABC CO, SOO. 


FIRST 
RECORD 
TEST 


Before checking for a control break, we now 
test (0 see if this was the first record, 


SET SWITCH 
TO “NO” 


171 IF FS <> “YES” THEN GOTO 174 
172 LET G$ = DS 


173 LET F$ = “NO” 


The statements. in essence. say. if the variable 
F§ is not equal to “YES,"" then we can bypass 
the next two instructions. At this point in our walk 
through, the switch does equal ""YES™ (having 
been set that way in the initialization routine), so 
our date compurison area (G$) is given the value 
of the first date entered (D$), Next. we set the 
switch to "NO ensuring that in subsequent loops 
through the progratn, statements 172 and 173 will 
never again be executed. (There is only one first 
record per RUN!) 


Our computer storage now looks this way: 


RAM 


PROGRAM 


bows ite he fe) 
T T2 Ta 
NO | a4 | 61105183 4 
FS L GS 
gsi85/83) [ABC CO 5h Se 
a. Ce 


CONTROL BREAK 
CHECKING 


iS DATE 
= GROUP 
DATE 


174 IF DS = GS THEN GOTO 186 


This comparison tests to see if a new date was 
just entered. If so, a control break will occur— 
but not a *‘false’* control break! This is because 
we have just forced G$ to be the same as D$ in 
our first record routine, Our logic will take the 
“YES” path 


DETAIL 

PROCESSING 
Every record will eventually find its way to 

these statements: 


ADD SALES 
AMOUNT TO 
DATE TOTAL 


aoo1TO 
TOTAL 
CLIENTS 


PRINT DATE. 
NAME. SALES 
AMOUNT 


Add 1 TO 
LINE # 
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189 LET T4 = T4 + 5S 


\| 


19% LET T2 


t) 


T2 + I- 


200 PRINT AT L, #; DS; TAB 14; NS; 
TAB 24; S 


295 LETL=L +1 
219 PRINT AT 21,f; “MORE (Y/N) ? ” 
224 INPUT A$ 


237 IF AS = “*Y’’ THEN GOTO 145 


PROGRAM =) ee L_s6.09 | 
1 T2 

{no jj 5 | [prises 
FS I GS 


| pads] ABC CC Sab ia | y 
DS NS Ss AS 


SECOND PASS 
THROUGH LOOP 

For the next record, we'll enter the follow 
ing values: 


1/05/83 ACME INC, 


15.00 


RAM 


PROGRAM 


NO & | grig5ias | 
FS L GS 
(sugsisa|lAcme inc| | ssva¢| |v | 
DS NE 5 As 


Pave 16 


These instructions should seem fairly 
familiar to us by now. They cause the ac- 
cumulation of the date total sales and of the 
number of records entered. Note that the print- 
ing of our detail line will occur at the line 
number specified by the value of L which will 
then be incremented by one for the next line. 


A prompt is then issued to continue the 
loop to which we respond with “*Y."” Just be- 
fore our loop is repeated, our system has this 
appearance: 


CRT 


SALES REPORT 


DATE CLIENT AMOUNT 


as: W583 ABC CO 5p.BH 


MORE (Y/N)? 
“y 


This time, those statements which were set 
up for the first record will nat be done because 
FS (our switch) now has a value of **NO.”’ 
Neither will a control break occur, sinee this 
date ts identical (o the group date. Therefore, 
this record will be processed similarly to the 
first. and our system now looks like this: 


CRT 


SALES REPORT 
DATE CLIENT AMOUNT 


6gsa2 ABC CO 5p Be 
6165183. ACME INC 190,98 


MORE (Y/Nj® 
¥ 


THIRD PASS 

If we were processing this program 
manually, we would know to write the date 
total line since we have printed all #1/@5/83 
records already. But our computer cannot pro- 
ject into the future; it doesn’t know that it 
already has processed a group of records until 
a new date is entered. 


After we have entered our third record 
(91/06/83 ZENITH SALES 175.99), a control 
break will occur since this date, D$, is not equal 
to the previous group date, GS$. 


1S DATE bo 
= GROUP DATE 
DATE TOTALS 


SET DATE 
TOTAL 


174 IF D$ = G$ THEN GOTO 18f 
175 GOSUB 314 

g 

D$ 


i] 


177 LET T4 


178 LET G$ 


Statement 175 causes a branch to line 319; 
since it’s a GOSUB. However, a RETURN 
instruction will cause a branch back to this 
statement. Our date total subroutine is now 
executed: 


DATE TOTALS 


avd 1TO 
LINE # 


PRINT “TOTALS 
FOR: ": GROUP 
DATE. DATE 
TOTAL 


ADD DATE 
TOTAL TO 
FINAL TOTAL 


ADD 2TO 
LINE # 
RETURN 
To 
CALLER 


345 REM DATE TOTALS BEGIN HERE 
319 LETL =L+1 


320 PRINT ATL, @; “TOTALS FOR: "; GS; 
TAB 24; T4 


33 LET Tl = Tl + T4 
349 LETL =L +2 


358 RETURN 


When the GOSUB on statement 175 is exe- 
cuted, an area of main storage will hold state- 
ment number ‘*175"* so that, when the return 
is encountered, the proper branch-back will oc- 
cur, This area is known as the ‘RETURN 
STACK.” 
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The first statement in the subroutine in- 
crements the line counter by one so that state- 
ment 32¢ will print two lines below the last 
detail line. Note: The date printed on this line 
is the ‘‘group”’ date of the previous record and 
not the date just entered (D$). 


Instruction 33% adds the group total ac- 
cumulator to the final total accumulator, Next, 
the line counter is upped by two, so that the 
following detail line will be double spaced, 


PLP RAL 


PROGRAM 


— 


[ssage| | 3 | | a | 
Ti 72 v4 

Lwo | [Lo | — |drpeves | 
Fs L Gs 

[srgorsa||zenitH saces| |i7sgé| Ly | 
DS NS 5 aS 


The RETURN statement on line 359 
causes the control unit to fetch the instruction 
located at the address in the return stack (line 
175) and to execute the next statement. This 
step (line 177) sets the group total back to # 
and then the group date is set to the date which 
caused the control break. Just before rejoin- 
ing our detail processing logic, here is what we 
have: 


CRT 


SALES REPORT 
DATE CLIENT AMOUNT 


(185/83 ABC CO 590.68 
1/65/83 ACME INC. 159,09 


TOTALS FOR: 1/5/83 659.00 


lhe detail processing lines 184 through 234 
cause a line of output lo appear two spaces 
below the group total line, giving us this: 


| 175 
| PROGRAM Larese | 
| NO | | 16 | 9 1166)83 
FS L GS 
|orssies}|zeniTH sALes| | 175.98 | Y 
os NS S AS 
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CRT 


SALES REPORT 
CLIENT 


DATE 


AMOUNT 


BiIP5/83 ABC CO 
Bips5i83 ACME INC 


sig 8 
159.98 


TOTALS FOR; #1/65/83" oso ae 


175.90 


616683 ZENITH SALES 


MORE (Y/N)? 
ayn 


FOURTH 
PASS 


In our sample data, we have one more 


record to process: 


91/06/83 BAKER LTD. 185, 


PROGRAM 


END OF 
FILE PROCESSING 

Now that we have entered all of our 
records, a response of “*N"’ to ‘‘MORE 


NO 
Lele] 
DATE 


PRINT * “TOTAL 
CLIENTS: ' 
TOTAL CLIENTS 


PRINT “TOTAL 
SALES: "; 
TOTAL SALES 


PRINT “TOTAL 
COMMISSION: "; 


TOTAL 
COMMISSION 


Since this record will not cause a control 
break, only detail processing will occur. An- 
other line will be displayed and totals accumu- 
lated to produce the following: 


SALES REPORT 
DATE CLIENT AMOUNT 


#1/g5/83 ABC CO. 500 Sp 
1/95/83 ACME INC. 159 68 


TOTALS FOR: 91/95/83 659 po 


91/96/83 ZENITH SALES 175.9 
#1/f6'83 BAKER LTD, 185.99 


MORE (Y/N)? 
oN 


(Y/N)?"' should be entered, Although the pro- 
gram logic leads to the printing of final totals, 
the last control group must be processed before 
this can happen. Remember, the last group 
totals are always “‘forced”’ at the end of the file. 


239 IF A$ = “*Y’’ THEN GOTO 145 
235 GOSUB 319 

237 PAUSE 32767 

249 LET T3 = Tl * 1 

259 CLS 


266 PRINT TAB 6; ‘““COMMISSION 
REPORT” 


276 PRINT ‘TOTAL CLIENTS: " 
TAB 26; T2 


284 PRINT “TOTAL SALES: "; 
TAB 2¢; T1 


294 PRINT ‘**STOTAL COMMISSION: * 
TAB 21; T3 


3W4 STOP 
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Statement 235 says, ‘‘Go do the subroutine 
beginning at line 314 and come back.** Group 
totals for $1/86/83 will be displayed and final 
totals accumulated. The RETURN statement 
will cause a branch back to the caller. The 
PAUSE statement at line 237 will halt execu- 
tion until a key is pressed. 


The commission will be calculated at 19% 
of the total sales; the screen is cleared and all 
totals displayed before the program ends. When 
the STOP statement is encountered, our system 
will look like this: 


BEFORE PAUSE 


T4 


| NO | | 4 | | p11s6ve3| 
L GS 

| 185.96 | 
s 


FS 
A 1s6r03|| BAKER LTD. | 
DS 


| procram | |1610.88) |_4 | 
"i T2 
NO | | 4 | | dreres | 
FS c Gs 
|gvderea)|_eakertto. | | re5g¢| [LN] 
DS NS $ aS 


GROUP 
PRINTING 

Before we conclude this section, let’s 
modify our program by deleting a few lines in 
order to illustrate group printing. 


Delete lines 149, 266 and 295. These lines 
are responsible for displaying column headings 
and detail lines only. RUN the program using 
the same input data as we used previously. Note 
the changes in our output. 


Group printing refers to the displaying of 
total lines only, also known as 4 summary 
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CRT 


SALES REPORT 
DATE CLIENT 


61/95/83 ABC CO. 
§1/65/83 ACME INC. 


AMOUNT 


560.6 
156,08 


65p.a8 


TOTALS FOR: 1/95/83 


piipeias ZENITH SALES 
#1/#6/83 BAKER LTO. 


TOTALS FOR: #1(66/83 


COMMISSION REPORT 


TOTAL CLIENTS: 


4 
TOTAL SALES: pig, 
TOTAL COMMISSION: 1 


report. Group printing allows the user to 
receive summarized data without becoming 
“bogged down’’ With too many details. 


Whether or not a group printing is desired, 
the essential logic of control-break processing 
remains unchanged. 


Now, to see what you've learned in this 
section, complete the Programmer’s Check 
which follows. 


PROGRAMMER’S CHECK 


Designing Programs 
With Control Breaks 


Below is Program IU8A1. The specifica- 

tions will challenge your ability as a pro- Output will consist of two screens: 
grammer. Refer back to the text for 

similar line items and flowcharting if you 

have difficulty, 


Program Name: WB8AI1 DETAIL SCREEN 
Type: CONTROL BREAKS 
Specifications: 

WEEKLY PAYROLL REPORT 
Design and code a control-break program EMP. NO NAME —- HOURS 
which will create a weekly payroll report. 
Input to this program will be TIME 
CARDS formated as: 


126 MARY 
TOTALS FOR: MARY 
INPUT MORE (Y/N)? 
TIME CARDS 


| EMP. # | EMPLOYEE NAME | HOURS | RATE 


TEST DATA: 


FINAL TOTAL SCREEN 


148 SAM 


148 SAM ,a f PAYROLL TOTALS 


NO. OF EMPLOYEES: 
TOTAL HOURS WORKED 


148 SAM 3.5 TOTAL PAYROLL: 
148 SAM 
126 MARY 


126 MARY 


126 MARY . (Answers on Pages 22 and 23) 
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PROGRAMMER’S CHECK ANSWERS 


FLOWCHART SOLUTION 
TO IU8AlI 


Lele) 
EMPLOYEE 
TOTALS EMPLOYEE TOTALS 


EMPLOY 
TOTAL PAYROLL 


LET PAY = 
SUBTOTAL HOURS 
* GROUP RATE 


LET GROUP 
NA 


TOTAL HOURS 
SUBTOTAL HOURS 
Tos 


LET Group atte PE a 


RATE = RATE GROUP NAME, 
PAY 


ADD 110 
TOTAL EMPLOYEES 


LET SUBTOTAL ADD PAY TO 
HOURS = TOTAL 
SCREEN g PAYROLL 
ADD HOURS TO 
SUBTOTAL HOURS 


HEADINGS 


PRINT NUMBER, 
NAME, HOURS 


BO 
EMPLOYEE 


TOTALS 


SCREEN 


HEAOINGS 


LET GROUP 
NAME = 
NAME TOTAL 

EMPLOYEES 


PRINT 


LET GROUP 
RATE = 


RATE 


LET SWITCH PRRt 
TOTAL 


PAYROLL 
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Programmer's Check | Answer (continued) 


Program Solution to IU8A1 


10 REM IU8Al WEEKLY 

PAYROLL PROGRAM 
24 REM YOUR NAME—#2/@5/83 
3 REM E EMPLOYEE NUMBER 
46 REM NS EMPLOYEE NAME 
58 REM H HOURS 
66 REM R RATE 
746 REM T1 TOTAL EMPLOYEES 
8# REM T2 TOTAL PAYROLL 
96 REM T3 SUBTOTAL HOURS 
198 REM T4 TOTAL HOURS 
119 REM P EMPLOYEE'S PAY 
120 REM GS GROUP NAME 
134 REM Gl GROUP RATE 
140 REM SS 
15f REM I 
164 REM AS 


17 LET TI 
180 LET 12 = 
199 LET 13 
195 LET T4 
208 LET SS = 
219 LET L 
220 CLS 


239 PRINT TAB 2; ““WEEKLY 
PAYROLL REPORT" 


LINE COUNTER 
RESPONSE TO PROMP1 


24f PRINT “EMP. NO.*; TAB If; “NAME”; 


TAB 28; HOURS" 
254 PRINT AT 21, #; “ENTER NUMBER:" 
264 INPUT E 
278 PRINT AT 21, #; “ENTER NAME : ** 
284 INPUT NS 
297 PRINT AT 21, #; “ENTER HOURS ;" 
347 INPUT H 
31 PRINT AT 21,f; “ENTER RATE : " 
328 INPUT R 
334 IF SS< >" Y" THEN GOTO 374 
348 LET G$ = NS 
354 LET GI =R 


FIRST RECORD SWITCH 


364 LET SS = "'N” 

370 IF NS = GS THEN GOTO 434 
380 GOSUB 58f 

307 LET GS = NS 

47 LET GI =R 

419 LET T3 = 9 

434 LET T3 = 13 + H 


448 PRINT AT L& E; TAB 18; NS; 
TAB 21; H 


450 LETL =L+1 

464 PRINT AT 21,9; "MORE (Y/N) 2?" 
474 INPUT AS 

487 IF AS = "Y" THEN GOTO 259 
494 GOSUB 589 

544 PAUSE 32767 

SIW CLS 


524 PRINT TAB 18; “PAYROLL 
TOTALS" 


534 PRINT “NO. OF 
EMPLOYEES: "; TAB 24; TI 


544 PRINT “TOTAL HOURS 
WORKED: "; TAB 24; T4 


55¢ PRINT “TOTAL PAYROLL: "; 
TAB 24; T2 


564 STOP 


574 REM EMPLOYEE TOTAL 
ROUTINE 


584 LET P = 13 * G1 
585 LET TI = T1 + 1 
509 LETL = L + 2 


694 PRINT AT L,I; “TOTALS 
FOR: "; G$; TAB 26; P 


61f LET T2 = T2 + P 
624 LET T4 = 14 + T3 
634 LET L = L +2 
648 RETURN 


MULTIPLE 
CONTROL 
BREAKS 

Once you have mastered the processing of 
control breaks, you may find that, in some 
applications, even the groups of records must 
be further divided into subgroups. When this 


is necessary, multiple control-break logic will 
be employed. 


For example, let’s suppose that in the sam- 
ple We saw in the previous section of this Unit, 
individual items were sold to each company. 
Modifying our input data, we could now have: 


INPUT FORMAT 


01/05/83 ABC 
01/85/83 ABC 
£i1/P5/83 ACME 
61/65/83 ACME 


61/86/83 ZENITH 
61/66/83 ZENITH 
61/66/83 ZENITH 
f\/$6/83 BAKER 
1/6/83 BAKER 


In this file, the records have been grouped 
by company name and by the date of sale. We 
now have two levels of control breaks; our out- 
put requires totals for each company and for 
each date. 


Besides the necessity of an extra ac- 
cumulator and control field, we will also have 
to decide the order in which the control breaks 
will be checked, The hierarchy of control 
breaks must be identified by the programmer; 
otherwise, the results will be invalid. 


The smallest grouping of records should 
cause minor Lotals to be displayed, In this case, 
the totals for a company will show. Date totals 
could then be called major totals. (If we had 
more subgroups, they would be known as 
minor-intermediate and major totals.) 


Our output should look like this: 
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DATE CLIENT ITEM AMOUNT 


COMPUTER 250.00 
PRINTER 250.00 
PAPER 75.0 
16K MEMORY 75.0 
TAPE DRIVE 1O0.a 
DISKETTES sO. as 
CASSETTES 5. 
SOFTWARE o Ws 
32K MEMORY 95. 


SALES ANALYSIS REPORT 


DATE CLIENT (TEM 


gigsi82 ABC COMPUTER 
6165/83 ABC PRINTER 


TOTALS FOR; ABC 


1/5/83 ACME 
1/5/83 ACME 


TOTALS FOR: ACME 
TOTALS FOR; 61/95/83 


PAPER 
16K MEMORY 


Another screen would then display the 
next date before our final totals are shown. 
Note that only the totals for a company are 
displayed when the company name changes; 
but when the date changes, the last company 
totals are printed first and then the date totals. 


In the flowcharting design for this applica- 
tion, several subroutines have been incorpo- 
rated: company totals, date totals and 
headings. 


if REMIUSA2 MULTIPLE CONTROL BREAKS 
24 REM DS DATE OF SALE 

34 REM CS CLIENT NAME 

49 REM IS ITEM 

54 REM A AMOUNT OF SALE 

68 REM TI TOTAL CLIENTS 

74 REM T2 TOTAL SALES — CLIENT 


FLOWCHART DESIGN 


84 REM T3 TOTAL SALES — DATE 

START of REM T4 TOTAL SALES — FINAL 
168 REM TS TOTAL COMMISSION AT .19 
110 REM L LINE COUNTER 


ci SST OTL 128 REM X$ FIRST RECORD SWITCH 
SALES TOD. 138 REM GS GROUP DATE 


146 REM P$ GROUP CLIENT 
15 REM A$ RESPONSE FOR PROMPT 


ToTAL aT “CONSTANT = — ANY MORE? 
all ta 164 REM C RATE OF COMMISSION 
b — 16 
17 LET Tt = @ 
SET SWITCH 
To 
“YES” 186 LET T2 = @ 
10 LET T3 = 9 


200 LET T4 = 9 


Le 
HEADINGS 
(+) : 2 LET C = wg 
INPUT 
22 LET X$ = “YES” 


234 GOSUB 576 


240 PRINT AT 21, #: “ENTER 
DATE?” 
258 INPUT DS 
26 PRINT AT 21, @: “ENTER 


CLIENT:”* 


280 PRINT AT 21,8; “ENTER 


ITEM: "° 
yes LET Group 
DATE 290 INPUT IS 
300 PRINT AT 21, #; “ENTER 


LET GROUP AMOUNT:” 
CLIENT = 
CLIENT 


319 INPUT A 
LET 320 IF X$< >“*YES" THEN GOTO 
SWITCH 
“NO 368 
@ 338 LET GS = DS 
ie 348 LET PS = CS 
359 LET X$ = “NO” 
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bo 
CLIENT 
TOTALS 


DO 
HEADINGS 


I 
oo 


STOP 


360 IF D$ = G$ THEN GOTO 419 
370 GOSUB 636 

398 GOSUB 576 

4nv GOTO 438 

419 IF C$ = P$ THEN GOTO 439 
420 GOSUB 768 

438 LET T2 = 12+ A 


449 PRINT AT Lf; DS; TAB 9; 
CS; TAB 17; 18; TAB 28; A 


459 LETL =L+1 


460 PRINT AT 21,9; "MORE 
(¥/N) =” 


474 INPUT A$ 
486 IF AS = “Y" THEN GOTO 249 
496 GOSUB 634 

sé# CLS 


518 PRINT TAB 6; **COMMISSION 
REPORT” 


520 PRINT “TOTAL CLIENTS: "; 
TAB 22; TI 


530 PRINT “TOTAL SALES; "; 
TAB 22; T4 


544 PRINT “TOTAL 
COMMISSION; "; TAB 22; 
T4*C 


554 STOP 


HEADINGS 


CLEAR 
THE 
SCREEN 
PRINT 
HEADINGS 
SET LINE 
#TO4 


CLIENT TOTALS 


PRINT 
CLIENT 
TOTALS 


ADD CLIENT 
TOTAL TO 
DATE TOTAL 


SET CLIENT 
oa To 


40D1TO 
TOTAL 
CLIENTS 


SET CLIENT 
TO GROUP 
CLIENT 


ADD 2 
TO LINE 
COUNTER 
RETURN 
To 
CALLER 


568 REM HEADING ROUTINE 
578 CLS 


580 PRINT TAB 6; “SALES 
ANALYSIS REPORT” 


597 PRINT “DATE"; TAB 9; 
“CLIENT”; TAB 19; “ITEM”; 
TAB 26; “AMOUNT” 


606 LET L = 4 

610 RETURN 

624 REM DATE TOTALS 
634 GOSUB 766 


649 PRINT AT Lf; “TOTALS 
FOR; *’; G$; TAB 25; T3 


656 LET T4 = T4 + T3 
666 LET T3 = # 
676 LET G$ = DS 


673 PRINT AT 21,9; ““PRESS ANY 
KEY”’ 


675 PAUSE 32767 
688 RETURN 
694 REM CLIENT TOTALS 


700 PRINT AT LY: “TOTAL 
FOR: °’; PS; TAB 25; T2 


718 LET T3 = T3 + T2 
715 LET T2 = 9 

728 LET Tl = TI + 1 
734 LET PS = C$ 


748 LETL =L +2 
758 RETURN 
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Enter the input test data and watch how it 
runs. The REM statements canbe deleted if you 
wish to conserve memory space. You will see that 
when you enter a new client's name, totals for the 
previous client will be displayed. But, when a new 
date is given, client totals are printed first and then 
date totals appear. The PAUSE statement allows 
you to look at the screen before moving on to the 
next screen. Also, when you respond with “‘N™’ 
to “*MORE?,”’ we see first client totals, date totals 
and, finally, our final totals, 


Since this program is very similar to our first 
program in this Unit, let us now highlight the 
differences. 


ADDITIONAL 
VARIABLES 

Only four variables have been added: an 
accumulator for client totals (T2), an item 
description for each record (I$), a comparison 
area for the group client’s name (P$), and a 
constant for the rate of commission (C). 


Several new routines have been added to 
our basic logic. 


INITIALIZATION 


SET TOTAL 
CLIENTS, 
TOTAL SALES 
TOs 


17 LET TI = ¢@ 


186 LET T2 = 


199 LET T3 = # 


260 LET T4 = # 


SET CLIENT 
TOTAL, DATE 
TOTAL 
To 


LET COMMISSION 
ay = 
A 


218 LETC = .19 


229 LET-X$ = “*YES” 


234 GOSUB 576 


After all accumulators (T1-T4) have been 
set to Y, a variable is established as the com- 
mission constant of 14% (.1%). While not neces- 
sary (we didn’t use it in the previous program), 
it is often desirable to utilize this technique of 
defining “‘literals’* as “‘constants’’ in the ini- 
tialization routine. This allows for easy mainte- 
nance of a program when and if this number 
should change in the future. If, for instance, 
a commission of 12 percent is to be given, we 
would have no trouble in merely changing line 
218 to LET C = ,12 and would not have to 
search through the intricacies of the rest of the 
program. 


oe 


Next, our first record bypass switch (X$) 
is set to ‘‘YES,’’ so we will be able to avoid 
a false control break when we enter data, 


In this application, the steps involved in 
the displaying headings on the top of the screen 
have been put into a subroutine, since we will 
have to print a new screen for each new date. 


| 


FIGURE 5—Programs for business applications 
make everyone’s job easier. This secretary- 
bookkeeper used to spend hours figuring out 
quarterly inventory reports. Now, she has a micro 
doing most of the work and even allows it to print 
on her memory typewriter. It is a snap! Can you 
create a program with control breaks and 
subroutines for typing paragraphs and letters? 


DATA ENTRY ROUTINE 


This statement allows for us to enter our 
detail records, each of which contains four 
fields: the date of sale, the client’s name, the 
item description, and the amount of the sale. 


FIRST RECORD BYPASS 


LET GROUP 
DATE = 
DATE 


LET GROUP 
CLIENT = 
CLIENT 


LET SWITCH 
= "NO" 


In this program, since we have two levels 
of control breaks, our first record switch has 
set up a routine which will initialize both con- 
trol fields before it ‘‘turns itself’ off. 


249 PRINT AT 21,9; ‘ENTER DATE:" 
258 INPUT D$ 

26f PRINT AT 21,9; “ENTER CLIENT:” 
276 INPUT C$ 

289 PRINT AT 21,9; “ENTER ITEM: ” 
299 INPUT I$ 


360 PRINT AT 21,9; “ENTER 
AMOUNT:” 


310 INPUT A 


320 IF X$< >“ YES" THEN GOTO 366 
334 LET G$ = D$ 
340 LET P$ = C$ 


35¢ LET X$ = “*‘NO"” 
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DETERMINE 
CONTROL BREAKS 


367 IF DS = G$ THEN GOTO 419 ‘ 
376 GOSUB 634 

394 GOSUB 576 

404 GOTO 436 

41f IF C$ = P$ THEN GOTO 434 


424 GOSUB 744 


FIGURE 6—Medical data which once required years to collect and analyze now takes a few days or 
even hours to review and obtain results. Micros and programmers are playing a role in seeking answers 
to medical problems. Physicians and researchers may request your help in setting up data collection 
and analysis programs in your community. Can you imagine how loops and subroutines would apply 
to such program designs? 
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DO YOU KNOW NOW? 


These were the questions posed at the 
heginnine of the lesson. 


How records can be processed as 
control groups? 

You have learned how input data is 
divided into groups and how pro- 
vrams can be designed to perform 
intermediate totals. Such applica- 
tions as total sales per day, commis- 
sions of sales persons, or employees’ 
wages earned have been demon- 
strated in this Study Unit. You have 
also seen how loops and subroutines 
are used in such applications. 


The difference between a GOTO and 
a GOSUB? 

\ GOTO statement causes a branch 
with no return. A GOSUB statement 
causes that particular line number to 
be held in an area of main storage 
so that when the RETURN is en- 
countered, the proper branch-back 
will occur. This area is known as the 
RETURN STACK. 


What group printing means? 

Group printing refers to the dis- 
playing of total lines only, and is also 
known as a summary report. Group 
printing allows you to receive sum- 
marized data without becoming 


a 


“bogged down" with too many 


details. 
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SCHOOL OF COMPUTER TRAINING 


EXAM 8 


CONTROL BREAKS — TAKING 
INTERMEDIATE TOTALS 
24708-2 


Questions 1-10: Circle the letter beside the one best answer to each question 


1. When utilizing control-break logic, it is assumed that the input data is 


(a) 
(b) 


in ascending sequence. (c) grouped. 
in descending sequence. (d) unable to be processed. 


2. Which of the following is nor essential to group printing? 


(a) 


A control field. (c) Detail lines. 


(b) A subtotal accumulator. (d) A first record bypass. 


3. A program switch 


(a) 
(b) 
(c) 
(d) 


is defined and used as the programmer sees fit. 
is a piece of the computer’s hardware. 

is always necessary. 

can never be used. 


4. The computer program can recognize that control group totals should be printed when 


(a) 
(b) 
(c) 
(d) 


the last record for a group is entered. 

the first record of a new group is entered. 
a detail record is entered. 

the first record false control-break occurs. 
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. A “PAUSE” statement 


(a) terminates a program. 

(b) halts a program until a key is pressed. 
(c) prompts the user to take his time. 

(d) blows a program up. 


. In what way are GOTOs and GOSUBs different? 


(a) Both cause a branch to a line number. 

(b) Both can be part of an IF statement. 

(c) Only a GOSUB causes a branch back when the RETURN is encountered. 
(d) They are alike in all ways. 


. Observe the lines given below and identify which line or lines will enable a prompt to be printed 


at the bottom of the screen: 


126 CLS 
134 PRINT TAB 9; “SALES REPORT” 

149 PRINT TAB 2; “DAFE”; TAB 1f; “CLIENT”; TAB 29; “AMOUNT” 
145 PRINT AT 21,f; “ENTER DATE:” 

158 INPUT D$ 

155 PRINT AT 21,f; ‘‘ENTER NAME:” 

168 INPUT N$ 

165 PRINT AT 21,9; “SENTER SALES:” 

176 INPUT S 


(a) Line 13¢ (c) Line 15, 16, 178 
(b) Line 149 (d) Line 145, 155, 165 


. To ease readability and debugging, 


(a) an additional switch should be entered to any subroutine. 

(b) a remarks line should be added to the beginning of the subroutine. 
(c) a GOSUB statement follows the initial line of the subroutine. 

(d) a RETURN statement is entered at the beginning of the subroutine. 


. The line which is most crucial in designing a subroutine is 


(a) a RETURN statement. (c) a PAUSE statement. 
(b) the STOP statement. (d) the GOTO statement. 


. After a PAUSE is in effect, you can start the program again by 


(a) turning the computer off, then on again. 
(b) switching the CRT off, then on again. 
(c) touching any key on the keyboard. 

(d) touching only the shift key twice. 


WHEN YOU HAVE COMPLETED THE ENTIRE EXAM, TRANSFER YOUR 
ANSWERS TO THE ANSWER SHEET WHICH FOLLOWS. 
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Figures 
Study the foregoing Question Paper and use it for your rough Tutor's Comments Grace Tutor 
workings. Record your final answers in the matrix below by 
writing a cross (X), IN INK OR BALLPOINT, through the letter 


which you think is the correct answer. Submit ONLY THIS 
ANSWER SHEET to the School for correction. ALL QUESTIONS 
MUST BE ANSWERED. 
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